home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / REXX3-C < prev    next >
Text File  |  1978-02-03  |  2KB  |  182 lines
  1. /* GET INFORMATION FROM FILE AND SEND TO AV */
  2.  
  3.   
  4. ADDRESS 'AV.REXX'
  5.  
  6.  
  7.  
  8.  
  9. call open(LNAA, 'Ram:LINE26')
  10.  
  11. Thisline26 = readln(LNAA)
  12.       
  13. SETVAR LINEA Thisline26
  14.    
  15.   
  16. call open(LNAB, 'Ram:LINE27')
  17.  
  18. Thisline27 = readln(LNAB)
  19.       
  20. SETVAR LINEB Thisline27   
  21.  
  22.  
  23. call open(LNAC, 'Ram:LINE28')
  24.  
  25. Thisline28 = readln(LNAC)
  26.       
  27. SETVAR LINEC Thisline28
  28.  
  29.  
  30. call open(LNAD, 'Ram:LINE29')
  31.  
  32. Thisline29 = readln(LNAD)
  33.       
  34. SETVAR LINED Thisline29  
  35.  
  36.  
  37. call open(LNAE, 'Ram:LINE30')
  38.  
  39. Thisline30 = readln(LNAE)
  40.       
  41. SETVAR LINEE Thisline30 
  42.  
  43.  
  44. call open(LNAF, 'Ram:LINE31')
  45.  
  46. Thisline31 = readln(LNAF)
  47.       
  48. SETVAR LINEF Thisline31
  49.  
  50.  
  51. call open(LNAG, 'Ram:LINE32')
  52.  
  53. Thisline32 = readln(LNAG)
  54.       
  55. SETVAR LINEG Thisline32
  56.  
  57.  
  58. call open(LNAH, 'Ram:LINE33')
  59.  
  60. Thisline33 = readln(LNAH)
  61.       
  62. SETVAR LINEH Thisline33
  63.  
  64.  
  65. call open(LNAI, 'Ram:LINE34')
  66.  
  67. Thisline34 = readln(LNAI)
  68.       
  69. SETVAR LINEI Thisline34 
  70.  
  71.  
  72. call open(LNAJ, 'Ram:LINE35')
  73.  
  74. Thisline35 = readln(LNAJ)
  75.       
  76. SETVAR LINEJ Thisline35
  77.  
  78.  
  79. call open(LNAK, 'Ram:LINE36')
  80.  
  81. Thisline36 = readln(LNAK)
  82.       
  83. SETVAR LINEK Thisline36
  84.  
  85.  
  86. call open(LNAL, 'Ram:LINE37')
  87.  
  88. Thisline37 = readln(LNAL)
  89.       
  90. SETVAR LINEL Thisline37
  91.  
  92.  
  93. call open(LNAM, 'Ram:LINE38')
  94.  
  95. Thisline38 = readln(LNAM)
  96.       
  97. SETVAR LINEM Thisline38
  98.  
  99.  
  100. call open(LNAO, 'Ram:LINE39')
  101.  
  102. Thisline39 = readln(LNAO)
  103.       
  104. SETVAR LINEN Thisline39
  105.  
  106.  
  107. call open(LNAP, 'Ram:LINE40')
  108.  
  109. Thisline40 = readln(LNAP)
  110.       
  111. SETVAR LINEO Thisline40
  112.  
  113.  
  114. call open(LNAQ, 'Ram:LINE41')
  115.  
  116. Thisline41 = readln(LNAQ)
  117.       
  118. SETVAR LINEP Thisline41
  119.  
  120.  
  121. call open(LNAR, 'Ram:LINE42')
  122.  
  123. Thisline42 = readln(LNAR)
  124.       
  125. SETVAR LINEQ Thisline42
  126.  
  127.  
  128. call open(LNAS, 'Ram:LINE43')
  129.  
  130. Thisline43 = readln(LNAS)
  131.       
  132. SETVAR LINER Thisline43
  133.  
  134.  
  135. call open(LNAT, 'Ram:LINE44')
  136.  
  137. Thisline44 = readln(LNAT)
  138.       
  139. SETVAR LINES Thisline44
  140.  
  141.  
  142. call open(LNAU, 'Ram:LINE45')
  143.  
  144. Thisline45 = readln(LNAU)
  145.       
  146. SETVAR LINET Thisline45
  147.  
  148.  
  149. call open(LNAV, 'Ram:LINE46')
  150.  
  151. Thisline46 = readln(LNAV)
  152.       
  153. SETVAR LINEU Thisline46
  154.  
  155.  
  156. call open(LNAW, 'Ram:LINE47')
  157.  
  158. Thisline47 = readln(LNAW)
  159.       
  160. SETVAR LINEV Thisline47
  161.  
  162.  
  163. call open(LNAX, 'Ram:LINE48')
  164.  
  165. Thisline48 = readln(LNAX)
  166.       
  167. SETVAR LINEW Thisline48
  168.  
  169.  
  170. call open(LNAY, 'Ram:LINE49')
  171.  
  172. Thisline49 = readln(LNAY)
  173.       
  174. SETVAR LINEX Thisline49
  175.  
  176.  
  177. call open(LNAZ, 'Ram:LINE50')
  178.  
  179. Thisline50 = readln(LNAZ)
  180.       
  181. SETVAR LINEY Thisline50
  182.